perm filename S7T.ALP[HAL,HE] blob
sn#234006 filedate 1976-09-03 generic text, type T, neo UTF8
;Start of program
XPROG
;BLOCK
XMVAR
;$B1.SP_GR
22
;$B1.ORG
24
0
;Assignment
XPUSH
L1
XCHNGE
;$B1.SP_GR
22
;BLOCK
XMVAR
;
26
;
30
;
32
;
34
;
36
;
40
;
42
;
44
;
46
0
;Move
XMOVE
L2
4
;Move
XMOVE
L3
10
;Move
;first argument
XGTVAL
;$B1.SP_GR
22
;second argument
XPUSH
L4
XTVADD
XCHNGE
;
42
;first argument
XGTVAL
;$B1.SP_GR
22
;second argument
XPUSH
L5
XTVADD
XCHNGE
;
40
;first argument
XGTVAL
;$B1.SP_GR
22
;second argument
XPUSH
L6
XTVADD
XCHNGE
;
36
;first argument
XGTVAL
;$B1.SP_GR
22
;second argument
XPUSH
L7
XTVADD
XCHNGE
;
34
;first argument
XGTVAL
;$B1.SP_GR
22
;second argument
XPUSH
L10
XTVADD
XCHNGE
;
32
XMOVE
L11
4
;PAUSE
XPUSH
L20
XPAUSE
;Move
;first argument
XGTVAL
;$B1.SP_GR
22
;second argument
XPUSH
L21
XTVADD
XCHNGE
;
30
XMOVE
L22
4
;PAUSE
XPUSH
L25
XPAUSE
;Move
XMOVE
L26
4
;Block end cleanup
XKVAR
;
26
;
30
;
32
;
34
;
36
;
40
;
42
;
44
;
46
0
;End of BLOCK
;Block end cleanup
XKVAR
;$B1.SP_GR
22
;$B1.ORG
24
0
;End of BLOCK
XENDP
;End of program